HPAVC/HPAVC CD-ROM.iso/pc/TASMSWAN.ZIP/FILLSTR.PAS

Pascal/Delphi Source File | 1989-07-17 | 255 b | 15 lines

PROGRAM FillStr;

{ Test using the FillString external function }

VAR    s : String;

FUNCTION FillString( n : Byte; ch : Char ) : String;  EXTERNAL;

{$L FILLSTR.OBJ }

BEGIN
    s := FillString( 45, '@' );
    Writeln( 'After filling: ', s)
END.